perm filename PAX.FAI[TMP,LCS] blob sn#133868 filedate 1974-11-30 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		ENTRY PAC,UNPAC
C00003 ENDMK
CāŠ—;
	ENTRY PAC,UNPAC
PAC:	0		;CALL PAC(PW,AR)
	HRRZ 1,1(16)
	ADDI 1,2
	HRR 2,(1)	;SIZE IS 2*14,8 BITS
	LSHC 2,-10
	SOJ 1,
	HRR 2,(1)
	LSHC 2,-16
	SOJ 1,
	HRR 2,(1)
	LSHC 2,-16
	MOVEM 3,@0(16)
	JRA 16,2(16)
UNPAC:	0		;CALL UNPAC(PW,AR)
	HRRZ 1,1(16)
	ADDI 1,2
	MOVE 2,@0(16)
	LSHC 2,-10
	ASH 3,-34
	MOVEM 3,(1)
	SOJ 1,
	LSHC 2,-16
	ASH 3,-26
	MOVEM 3,(1)
	SOJ 1,
	LSHC 2,-16
	ASH 3,-26
	MOVEM 3,(1)
	JRA 16,2(16)
	END